home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 26 / CU Amiga Magazine's Super CD-ROM 26 (1998)(EMAP Images)(GB)[!][issue 1998-09].iso / CUCD / Utilities / XPK / Developers / Include / Modula2 / XpkSubD.def < prev    next >
Text File  |  1998-02-08  |  4KB  |  83 lines
  1. (*#-- BEGIN AutoRevision header, please do NOT edit!
  2. *
  3. * $VER: XpkSubD.def 1.0 (13.10.97)
  4. * Auth: T.B. (tonyiommi@geocities.com)
  5. *
  6. * Desc: XPKSub Defs, you need them to write your own packer libs.
  7. *       xpksub.h 4.10 (05.04.97) by SDI
  8. * Reqs: AMIGA OS 2.0
  9. * Lang: MODULA-2
  10. * Comp: Cyclone © by M. Timmermans
  11. * 
  12. *-- END AutoRevision header --*)
  13.  
  14. DEFINITION MODULE XpkSubD; (*$ Implementation- *)
  15.  
  16. FROM SYSTEM IMPORT ADDRESS;
  17. FROM XpkMasterD IMPORT ModePtr,StrPtr;
  18.  
  19. (* --- The XpkInfo structure --- *)
  20.  
  21. (*
  22.  * Sublibs return this structure to xpkmaster when asked nicely
  23.  * This is version 1 of XpkInfo. It's not #define'd because we don't want
  24.  * it changing automatically with recompiles - you've got to actually update
  25.  * your code when it changes.
  26. *)
  27.  
  28. TYPE
  29.  InfoPtr = POINTER TO Info;
  30.  Info=RECORD
  31.     infoVersion,                (* Version number of this structure        *)
  32.     libVersion,                 (* The version of this sublibrary          *)
  33.     masterVersion,              (* The required master lib version         *)
  34.     modesVersion    :INTEGER;   (* Version number of mode descriptors      *)
  35.     name,                       (* Brief name of the packer, 20 char max   *)
  36.     longName,                   (* Full name of the packer   30 char max   *)
  37.     description     :StrPtr;    (* Short packer desc., 70 char max         *)
  38.     id,                         (* ID the packer goes by (XPK format)      *)
  39.     flags,                      (* Defined below                           *)
  40.     maxPkInChunk,               (* Max input chunk size for packing        *)
  41.     minPkInChunk,               (* Min input chunk size for packing        *)
  42.     defPkInChunk    :LONGINT;   (* Default packing chunk size              *)
  43.     packMsg,                    (* Packing message, present tense          *)
  44.     unpackMsg,                  (* Unpacking message, present tense        *)
  45.     packedMsg,                  (* Packing message, past tense             *)
  46.     unpackedMsg     :StrPtr;    (* Unpacking message, past tense           *)
  47.     defMode,                    (* Default mode number                     *)
  48.     pad             :INTEGER;   (* for future use                          *)
  49.     modeDesc        :ModePtr;   (* List of individual descriptors          *)
  50.     reserved        :ARRAY[0..5] OF LONGINT;    (* Future expansion - set to zero          *)
  51.  END;
  52.  
  53. (* --- defines for Flags: see xpk.h, XPKIF_xxxxx --- *)
  54.  
  55. (* The XpkSubParams structure *)
  56.  SubParamsPtr = POINTER TO SubParams;
  57.  SubParams=RECORD
  58.     inBuf       :ADDRESS;   (* The input data               *)
  59.     inLen       :LONGINT;   (* The number of bytes to pack  *)
  60.     outBuf      :ADDRESS;   (* The output buffer            *)
  61.     outBufLen,              (* The length of the output buf *)
  62.     outLen,                 (* Number of bytes written      *)
  63.     flags,                  (* Flags for master/sub comm.   *)
  64.     number,                 (* The number of this chunk     *)
  65.     mode        :LONGINT;   (* The packing mode to use      *)
  66.     password    :StrPtr;    (* The password to use          *)
  67.     libVersion,             (* SublibVersion used to pack   *)
  68.     pad         :INTEGER;   (* Reserved; don't use          *)
  69.     arg         :ARRAY[0..2] OF LONGINT;    (* Reserved; don't use  *)
  70.     sub         :ARRAY[0..3] OF LONGINT;    (* Sublib private data  *)
  71.  END;
  72.  
  73. (*
  74.  * xsp_LibVersion is the version number of the sublibrary used to pack
  75.  * this chunk. It can be used to create backwards compatible sublibraries
  76.  * with a totaly different fileformat.
  77.  *)
  78.  
  79. CONST
  80.  sfStepDown     = 1;  (* May reduce pack eff. to save mem   *)
  81.  sfPrevChunk    = 2;  (* Previous chunk available on unpack *)
  82.  
  83. END XpkSubD.